Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/prog_d/ssbc15.zip/DEMOFRM.DFM/DEMOFRM.txt

Text File | 1996-04-15 | 5KB | 202 lines

object fmDemo: TfmDemo
  Left = 91
  Top = 136
  Width = 640
  Height = 480
  Caption = 'Soft Sector Bar Code Demo'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnResize = FormResize
  TextHeight = 16
  object ssBarCode: TssBarCode
    Left = 104
    Top = 24
    Width = 221
    Height = 55
    BarCodeType = bcCode39
    BarColor = clBlack
    BarWidth = 0.009999999776482582
    Data = 'SOFT SECTOR'
    WideBarRatio = 3.000000000000000000
  end
  object Panel: TPanel
    Left = 0
    Top = 280
    Width = 632
    Height = 152
    Align = alBottom
    BevelOuter = bvNone
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 40
      Top = 57
      Width = 86
      Height = 16
      Caption = 'Bar Code Type'
    end
    object Label2: TLabel
      Left = 296
      Top = 1
      Width = 58
      Height = 16
      Caption = 'Bar Width'
    end
    object Label3: TLabel
      Left = 296
      Top = 57
      Width = 63
      Height = 16
      Caption = 'Orientation'
    end
    object Label4: TLabel
      Left = 40
      Top = 1
      Width = 27
      Height = 16
      Caption = 'Data'
    end
    object Label5: TLabel
      Left = 400
      Top = 20
      Width = 38
      Height = 16
      Caption = 'inches'
    end
    object cbType: TComboBox
      Left = 40
      Top = 73
      Width = 217
      Height = 24
      Style = csDropDownList
      ItemHeight = 16
      Items.Strings = (
        'Code 39'
        'Interleaved 2 of 5'
        'Postnet'
        'UPC-A')
      TabOrder = 3
    end
    object ckBearer: TCheckBox
      Left = 496
      Top = 8
      Width = 121
      Height = 17
      Caption = 'Bearer Bars?'
      TabOrder = 1
      OnClick = ckBearerClick
    end
    object ckReadable: TCheckBox
      Left = 440
      Top = 40
      Width = 193
      Height = 17
      Caption = 'Print Human Readable?'
      State = cbChecked
      TabOrder = 2
      OnClick = ckReadableClick
    end
    object cbOrientation: TComboBox
      Left = 296
      Top = 73
      Width = 217
      Height = 24
      Style = csDropDownList
      ItemHeight = 16
      Items.Strings = (
        'Left to Right'
        'Right To Left'
        'Top to Bottom'
        'Bottom to Top')
      TabOrder = 4
    end
    object edData: TEdit
      Left = 40
      Top = 16
      Width = 217
      Height = 24
      CharCase = ecUpperCase
      TabOrder = 0
      Text = 'SOFT SECTOR'
    end
    object btUpdate: TBitBtn
      Left = 40
      Top = 112
      Width = 161
      Height = 33
      Caption = '&Update Barcode'
      TabOrder = 5
      OnClick = btUpdateClick
      Style = bsNew
    end
    object btClose: TBitBtn
      Left = 520
      Top = 112
      Width = 105
      Height = 33
      TabOrder = 6
      Kind = bkClose
      Style = bsNew
    end
    object edWidth: TEdit
      Left = 296
      Top = 16
      Width = 97
      Height = 24
      TabOrder = 7
      Text = '0.010'
    end
    object btPrint: TBitBtn
      Left = 304
      Top = 112
      Width = 121
      Height = 33
      Caption = '&Print Barcode'
      TabOrder = 8
      OnClick = btPrintClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      NumGlyphs = 2
      Style = bsNew
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 432
    Width = 632
    Height = 21
    Align = alBottom
    BevelOuter = bvNone
    Caption =
      'Delphi Native Barcode Component - Copyright 1996 Soft Sector, In' +
      'c.  Call [phone] to order!'
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
end